home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 50 / marsb (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-10-16  |  3KB  |  106 lines
  1. GOTO Mars11
  2. Marsroutine:
  3. CLS
  4. PALETTE 0,0,0,0
  5. LINE(0,80)-(600,80)
  6. BVERH=0.1
  7. CIRCLE(320,50),3.3935,1,,,BVERH
  8. BVERH=BVERH*1
  9. PALETTE 3,1,0.4,0
  10. PALETTE 2,0,0,0
  11. COLOR 3,0
  12.  
  13. PAINT(320,50),3,1
  14. RETURN
  15. Mars11:
  16. CLS
  17. GOSUB Marsroutine
  18. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  19. PRINT
  20. PRINT"Auch auf dem Mars gibt es Vulkane.Eine sehr bekannte Vulkangegend"
  21. PRINT"ist der Tharsis-Rücken(110°-120° im Westen). Einer der größten"
  22. PRINT"Vulkane im Sonnensytem ist vermutlich der Olympus Mons "
  23. PRINT"der auch auf dem Tharsis-Rücken liegt.Er hat einen Durchmesser"
  24. PRINT"von 600 km. Interessante Objekte auf dem Mars sind auch noch "
  25. PRINT"die Marspole .Das Eis an den Polen besteht aus Wasser.Darüber"
  26. PRINT"liegt eine Schicht aus gefrorenem Kohlendioxid.Am Rande der"
  27. PRINT"Pole existieren Feuchtgebiete ,welche im Marssommer schmelzen"
  28. PRINT"und im Marswinter gefrieren. Der Südpol des Mars besteht"
  29. PRINT"aus einem Wasserrervoir von 500 000 km^3 Wasser.  "
  30. PRINT"M:Menü                                 I:More Info."
  31. Taste37:
  32. GG$=INKEY$
  33. IF GG$<>"" THEN GG$=UCASE$(GG$)
  34.      IF GG$="M" THEN Hauptmenu
  35.      IF GG$="I" THEN Mars12
  36. GOTO Taste37
  37. Mars12:
  38. CLS
  39. GOSUB Marsroutine
  40. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  41. PRINT
  42. PRINT"Dieses entspreche einem Meer von einer Ausdehnung von 700 km x"
  43. PRINT"700 km und 1 km Tiefe."
  44. PRINT"Ein Grabenbruch größer als der Grand Canyon mit einer Länge"
  45. PRINT"von 4000 km,einer Breite von 80-120 km und einer Tiefe von 1-"
  46. PRINT"3 km befindet sich auch auf dem Mars. Es ist das"
  47. PRINT"Valles Marineris. "
  48. PRINT"                `Magnetosphäre`    "
  49. PRINT"Messungen der Mariner 9-Sonde ergaben das der Mars im "
  50. PRINT"Inneren völlig erkaltet ist.Deshalb tritt bei im auch nicht "
  51. PRINT"der `Dynamoeffekt` auf .Dadurch beträgt die Magnetfeldstärke"
  52. PRINT"des Mars nur 10-30 Gamma(Erde=30000 Gamma)."
  53. PRINT"M:Menü                                   I:More Info"
  54. Taste39:
  55. HH$=INKEY$
  56. IF HH$<>"" THEN HH$=UCASE$(HH$)
  57.      IF HH$="M" THEN Hauptmenu
  58.      IF HH$="I" THEN Mars13
  59. GOTO Taste39
  60. Mars13:
  61. CLS
  62. GOSUB Marsroutine
  63. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  64. PRINT
  65. PRINT"                        Marsmonde"
  66. PRINT"Die Marsmonde sind im Prinzip nichts weiter als größere"
  67. PRINT"Gesteinsbrocken .Der Mars hat die Monde vermutlich auf-"
  68. PRINT"gefangen als sie als Kometen am Mars vorbei flogen."
  69. PRINT"Eine andere Theorie ist das ein Komet auf dem Mars auf-"
  70. PRINT"schlug und dabei Gesteinbrocken ins All schleuderte,welches"
  71. PRINT"heute die Marsmonde sein könnten."
  72. PRINT"                          Phobos:"
  73. PRINT"Phobos hat einen Durchmesser von ungefehr 16 km. "
  74. PRINT"M:Menü                              I:More Info"
  75. Taste40:
  76. II$=INKEY$
  77. IF II$<>"" THEN II$=UCASE$(II$)
  78.      IF II$="M" THEN Hauptmenu
  79.      IF II$="I" THEN Mars14
  80. GOTO Taste40
  81. Mars14:
  82. CLS
  83. GOSUB Marsroutine
  84. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  85. PRINT
  86. PRINT"Er ist 5875 km vom Mars entfernt. Phobos hat eine Dichte"
  87. PRINT"von 2,1. Die Umlaufzeit beträgt 7 Std. 39 Min./m  ."
  88. PRINT"Das Albedo(Rückstrahlvermögen) beträgt 0,06."
  89. PRINT"                         Deimos"
  90. PRINT"Deimos hat einen Durchmesser von ca. 8 km. Deimos ist"
  91. PRINT"20000 km vom Mars entfernt. Die Umlaufzeit des Deimos"
  92. PRINT"beträgt 30Std.18Min./m. Das Albedo(Rückstrahlvermögen)"
  93. PRINT"beträgt 0,075."
  94. PRINT"M:Menü "
  95. Taste42:
  96. JJ$=INKEY$
  97. IF JJ$<>"" THEN JJ$=UCASE$(JJ$)
  98.      IF JJ$="M" THEN Hauptmenu
  99. GOTO Taste42
  100. Hauptmenu:
  101. CHAIN"Monitorversion"
  102.        
  103.      
  104.  
  105.  
  106.